  10 :RETURN ;S=0;U=0
  20 CLEAR ;BC=RND (32)×8;FC=BC+4
  30 FOR Z=0TO 49;@(Z×2)=Z×262÷100;@(Z×2+1)=Z×162÷100;NEXT Z
  40 T=0;INPUT "PILE SIZES? L"L,R
  41 IF L+R=0GOTO 40
  45 PRINT #11,L,"-LEFT",#4,R,"-RIGHT
  60 IF L+R>5GOTO 80
  70 PRINT "YOU'RE A REAL SPORT!
  80 PRINT "DO YOU WANT TO GO FIRST?
  90 K=KP;IF K=78GOTO 690
 100 IF L=RGOSUB 1200
 110 IF ABS(L-R)=1GOSUB 1200
 120 PRINT "YOUR MOVE:    ",
 130 I=KP;TV=I;J=KP;TV=J;IF J<65K=KP;TV=K
 140 IF I>48IF I<58GOTO 170
 150 PRINT ;T=T+1;IF T>2PRINT "ALRIGHT, THAT'S IT!";PRINT "I QUIT!";STOP
 160 PRINT "IMPROPER ENTRY!";GOTO 120
 170 I=I-48;IF J<65I=I×10+(J-48);J=K
 175 IF J=76GOTO 180
 176 IF J=82GOTO 182
 177 IF J=66GOTO 184
 178 GOTO 150
 180 IF I>LGOTO 150
 181 L=L-I;GOTO 220
 182 IF I>RGOTO 150
 183 R=R-I;GOTO 220
 184 IF I>LGOTO 150
 185 IF I>RGOTO 150
 186 L=L-I;GOTO 182
 210 GOTO 150
 220 GOSUB 1150
 600 IF L+R>0GOTO 680
 630 PRINT "YOU WIN!!";S=S+1;GOTO 1160
 680 PRINT "HM..",
 690 Z=0;M=0
 700 IF @(Z)=LGOTO 760
 710 IF @(Z+1)=LGOTO 780
 720 IF @(Z)=RGOTO 800
 730 IF @(Z+1)=RGOTO 820
 740 Z=Z+2;IF Z>99PRINT "I DON'T KNOW!";GOTO 1080
 750 GOTO 700
 760 A=Z;B=1;IF M=1GOTO 840
 770 M=1;GOTO 720
 780 A=Z;B=0;IF M=1GOTO 840
 790 M=1;GOTO 720
 800 C=Z;D=1;IF M=1GOTO 840
 810 M=1;GOTO 740
 820 C=Z;D=0;IF M=1GOTO 840
 830 M=1;GOTO 740
 840 IF L=RGOTO 895
 845 IF C=AGOTO 1080
 850 IF A>CGOTO 900
 860 P=A+B
 880 IF @(P)>RGOTO 940
 890 M=R-@(P);R=@(P);E=82;GOTO 1110
 895 M=L;L=0;R=0;E=66;GOTO 1110
 900 P=C+D
 920 IF @(P)>LGOTO 940
 930 M=L-@(P);L=@(P);E=76;GOTO 1110
 940 M=0;E=66
 950 P=A;IF C<A P=C
 960 P=P-2;G=0
 965 M=M+1;L=L-1;R=R-1
 970 FOR Z=PTO 0STEP -2
 990 IF @(Z)=LGOTO 1040
1000 IF @(Z+1)=LGOTO 1050
1010 IF @(Z)=RGOTO 1060
1020 IF @(Z+1)=RGOTO 1070
1030 NEXT Z;GOTO 965
1040 IF @(Z+1)=RGOTO 1110
1045 GOTO 1075
1050 IF @(Z)=RGOTO 1110
1055 GOTO 1075
1060 IF @(Z+1)=LGOTO 1110
1065 GOTO 1075
1070 IF @(Z)=LGOTO 1110
1075 IF G=1GOTO 960
1077 G=1;GOTO 965
1080 IF L>RGOTO 1100
1090 R=R-1;M=1;E=82;GOTO 1110
1100 L=L-1;M=1;E=76
1110 PRINT " I TAKE:",#3,M,;TV=E
1115 GOSUB 1150
1120 IF L+R>0GOTO 120
1130 PRINT "I WIN!!";U=U+1;GOTO 1160
1150 PRINT ;PRINT "LEAVING",#4,L,"-LEFT",R,"-RIGHT";RETURN 
1160 PRINT "COMPUTER = ",#1,U,"    HUMAN = ",S
1170 PRINT "DO YOU WANT TO PLAY AGAIN?"
1180 K=KP;IF K=89GOTO 20
1190 T=2;GOTO 150
1200 PRINT "YOU LIKE SITTING DUCKS,   DON'T YOU?";RETURN 
RUN 
>